/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_08 / fastload

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 20 | 46 61 73 74 4c 6f 61 64 |..... > |FastLoad|
|00000010| 0d 00 14 04 0d 00 1e 2e | f4 20 28 43 29 20 52 69 |........|. (C) Ri|
|00000020| 63 68 61 72 64 20 41 6e | 74 68 6f 6e 79 20 41 76 |chard An|thony Av|
|00000030| 65 72 69 6c 6c 2c 20 4d | 61 72 63 68 20 31 39 38 |erill, M|arch 198|
|00000040| 39 2e 0d 00 28 04 0d 00 | 32 49 f4 20 4c 6f 61 64 |9...(...|2I. Load|
|00000050| 20 77 68 6f 6c 65 20 53 | 63 72 65 65 6e 53 61 76 | whole S|creenSav|
|00000060| 65 2f 46 61 73 74 53 61 | 76 65 20 73 63 72 65 65 |e/FastSa|ve scree|
|00000070| 6e 73 20 66 61 73 74 2c | 20 69 6e 63 6c 75 64 69 |ns fast,| includi|
|00000080| 6e 67 20 50 61 6c 65 74 | 74 65 20 64 61 74 61 0d |ng Palet|te data.|
|00000090| 00 3c 04 0d 00 46 12 de | 20 62 75 66 66 65 72 25 |.<...F..| buffer%|
|000000a0| 20 31 30 30 30 0d 00 50 | 05 f5 0d 00 5a 08 eb 20 | 1000..P|....Z.. |
|000000b0| 31 38 0d 00 64 24 f1 20 | 27 22 46 61 73 74 2d 6c |18..d$. |'"Fast-l|
|000000c0| 6f 61 64 20 42 41 53 49 | 43 20 56 20 70 72 6f 63 |oad BASI|C V proc|
|000000d0| 65 64 75 72 65 22 0d 00 | 6e 2b f1 20 27 22 a9 20 |edure"..|n+. '". |
|000000e0| 52 69 63 68 61 72 64 20 | 41 6e 74 68 6f 6e 79 20 |Richard |Anthony |
|000000f0| 41 76 65 72 69 6c 6c 2c | 20 31 39 38 38 2e 22 27 |Averill,| 1988."'|
|00000100| 27 0d 00 78 71 f1 22 44 | 65 6d 6f 6e 73 74 72 61 |'..xq."D|emonstra|
|00000110| 74 69 6f 6e 20 73 63 72 | 65 65 6e 73 20 6f 66 20 |tion scr|eens of |
|00000120| 74 68 65 20 6e 65 77 20 | 41 72 63 2d 44 46 53 20 |the new |Arc-DFS |
|00000130| 72 65 61 64 65 72 20 3a | 20 22 27 27 22 22 22 64 |reader :| "''"""d|
|00000140| 66 73 72 65 61 64 65 72 | 32 22 22 20 28 6d 6f 64 |fsreader|2"" (mod|
|00000150| 65 20 32 30 29 22 27 22 | 22 22 64 66 73 72 65 61 |e 20)"'"|""dfsrea|
|00000160| 64 65 72 31 22 22 20 28 | 6d 6f 64 65 20 31 32 29 |der1"" (|mode 12)|
|00000170| 22 27 0d 00 82 17 e8 20 | 22 46 69 6c 65 6e 61 6d |"'..... |"Filenam|
|00000180| 65 3a 20 22 66 69 6c 65 | 24 0d 00 8c 20 f2 66 61 |e: "file|$... .fa|
|00000190| 73 74 6c 6f 61 64 28 66 | 69 6c 65 24 2c 62 75 66 |stload(f|ile$,buf|
|000001a0| 66 65 72 25 2c 39 35 30 | 29 0d 00 96 15 c8 99 20 |fer%,950|)...... |
|000001b0| 22 4f 53 5f 42 79 74 65 | 22 2c 32 31 2c 30 0d 00 |"OS_Byte|",21,0..|
|000001c0| a0 0b e7 20 a5 20 3a 20 | cd 0d 00 aa 07 fd 20 a3 |... . : |...... .|
|000001d0| 0d 00 b4 05 e0 0d 00 be | 04 0d 00 c8 04 0d 00 d2 |........|........|
|000001e0| 17 f4 20 42 61 73 69 63 | 20 56 20 46 61 73 74 6c |.. Basic| V Fastl|
|000001f0| 6f 61 64 2e 0d 00 dc 26 | f4 20 28 43 29 20 52 69 |oad....&|. (C) Ri|
|00000200| 63 68 61 72 64 20 41 76 | 65 72 69 6c 6c 2c 20 4d |chard Av|erill, M|
|00000210| 61 72 63 68 20 31 39 38 | 39 2e 0d 00 e6 49 f4 20 |arch 198|9....I. |
|00000220| 54 68 69 73 20 69 73 20 | 61 20 6c 69 62 72 61 72 |This is |a librar|
|00000230| 79 20 70 72 6f 63 65 64 | 75 72 65 20 77 68 69 63 |y proced|ure whic|
|00000240| 68 20 79 6f 75 20 63 61 | 6e 20 75 73 65 20 69 6e |h you ca|n use in|
|00000250| 20 79 6f 75 72 20 6f 77 | 6e 20 70 72 6f 67 72 61 | your ow|n progra|
|00000260| 6d 73 2e 0d 00 f0 04 0d | 00 fa 3f dd 20 f2 66 61 |ms......|..?. .fa|
|00000270| 73 74 6c 6f 61 64 28 66 | 69 6c 65 5f 6e 61 6d 65 |stload(f|ile_name|
|00000280| 24 2c 74 65 6d 70 6f 72 | 61 72 79 5f 62 75 66 66 |$,tempor|ary_buff|
|00000290| 65 72 25 2c 74 65 6d 70 | 6f 72 61 72 79 5f 6c 65 |er%,temp|orary_le|
|000002a0| 6e 67 74 68 25 29 0d 01 | 04 20 ea 20 66 69 6c 65 |ngth%)..|. . file|
|000002b0| 5f 68 61 6e 64 6c 65 25 | 2c 73 74 25 2c 61 73 74 |_handle%|,st%,ast|
|000002c0| 25 2c 66 73 74 25 0d 01 | 0e 04 0d 01 18 19 66 69 |%,fst%..|......fi|
|000002d0| 6c 65 5f 68 61 6e 64 6c | 65 25 3d 8e 28 66 69 6c |le_handl|e%=.(fil|
|000002e0| 65 24 29 0d 01 22 18 e7 | 20 66 69 6c 65 5f 68 61 |e$).."..| file_ha|
|000002f0| 6e 64 6c 65 25 3d 30 20 | 8c 20 e1 0d 01 2c 04 0d |ndle%=0 |. ...,..|
|00000300| 01 36 45 c8 99 20 22 4f | 53 5f 47 42 50 42 22 2c |.6E.. "O|S_GBPB",|
|00000310| 33 2c 66 69 6c 65 5f 68 | 61 6e 64 6c 65 25 2c 74 |3,file_h|andle%,t|
|00000320| 65 6d 70 6f 72 61 72 79 | 5f 62 75 66 66 65 72 25 |emporary|_buffer%|
|00000330| 2c 74 65 6d 70 6f 72 61 | 72 79 5f 6c 65 6e 67 74 |,tempora|ry_lengt|
|00000340| 68 25 2c 30 0d 01 40 29 | 73 70 72 69 74 65 5f 73 |h%,0..@)|sprite_s|
|00000350| 74 61 72 74 25 3d 28 74 | 65 6d 70 6f 72 61 72 79 |tart%=(t|emporary|
|00000360| 5f 62 75 66 66 65 72 25 | 21 34 29 2d 34 0d 01 4a |_buffer%|!4)-4..J|
|00000370| 04 0d 01 54 43 c8 99 20 | 22 4f 53 5f 47 42 50 42 |...TC.. |"OS_GBPB|
|00000380| 22 2c 33 2c 66 69 6c 65 | 5f 68 61 6e 64 6c 65 25 |",3,file|_handle%|
|00000390| 2c 74 65 6d 70 6f 72 61 | 72 79 5f 62 75 66 66 65 |,tempora|ry_buffe|
|000003a0| 72 25 2c 32 30 30 2c 73 | 70 72 69 74 65 5f 73 74 |r%,200,s|prite_st|
|000003b0| 61 72 74 25 0d 01 5e 1b | 69 6d 61 67 65 5f 73 74 |art%..^.|image_st|
|000003c0| 61 72 74 25 3d 62 75 66 | 66 65 72 25 21 33 32 0d |art%=buf|fer%!32.|
|000003d0| 01 68 04 0d 01 72 1c 6d | 6f 64 65 5f 64 65 66 69 |.h...r.m|ode_defi|
|000003e0| 6e 65 64 25 3d 62 75 66 | 66 65 72 25 21 34 30 0d |ned%=buf|fer%!40.|
|000003f0| 01 7c 13 63 75 72 72 65 | 6e 74 5f 6d 6f 64 65 25 |.|.curre|nt_mode%|
|00000400| 3d eb 0d 01 86 34 e7 20 | 63 75 72 72 65 6e 74 5f |=....4. |current_|
|00000410| 6d 6f 64 65 25 3c 3e 6d | 6f 64 65 5f 64 65 66 69 |mode%<>m|ode_defi|
|00000420| 6e 65 64 25 20 8c 20 eb | 20 6d 6f 64 65 5f 64 65 |ned% . .| mode_de|
|00000430| 66 69 6e 65 64 25 0d 01 | 90 04 0d 01 9a 17 e7 20 |fined%..|....... |
|00000440| 69 6d 61 67 65 5f 73 74 | 61 72 74 25 3e 34 34 20 |image_st|art%>44 |
|00000450| 8c 0d 01 a4 14 e3 20 63 | 6f 6c 6f 75 72 25 3d 30 |...... c|olour%=0|
|00000460| 20 b8 20 31 35 0d 01 ae | 33 72 67 62 5f 61 64 64 | . 15...|3rgb_add|
|00000470| 72 65 73 73 25 3d 28 63 | 6f 6c 6f 75 72 25 2a 38 |ress%=(c|olour%*8|
|00000480| 29 2b 31 2b 74 65 6d 70 | 6f 72 61 72 79 5f 62 75 |)+1+temp|orary_bu|
|00000490| 66 66 65 72 25 2b 34 34 | 0d 01 b8 3a fb 20 63 6f |ffer%+44|...:. co|
|000004a0| 6c 6f 75 72 25 2c 72 67 | 62 5f 61 64 64 72 65 73 |lour%,rg|b_addres|
|000004b0| 73 25 3f 30 2c 72 67 62 | 5f 61 64 64 72 65 73 73 |s%?0,rgb|_address|
|000004c0| 25 3f 31 2c 72 67 62 5f | 61 64 64 72 65 73 73 25 |%?1,rgb_|address%|
|000004d0| 3f 32 0d 01 c2 05 ed 0d | 01 cc 05 cd 0d 01 d6 04 |?2......|........|
|000004e0| 0d 01 e0 2a 6c 65 6e 67 | 74 68 5f 78 25 3d 28 28 |...*leng|th_x%=((|
|000004f0| 74 65 6d 70 6f 72 61 72 | 79 5f 62 75 66 66 65 72 |temporar|y_buffer|
|00000500| 25 21 31 36 29 2b 31 29 | 2a 34 0d 01 ea 22 6c 65 |%!16)+1)|*4..."le|
|00000510| 6e 67 74 68 5f 79 25 3d | 74 65 6d 70 6f 72 61 72 |ngth_y%=|temporar|
|00000520| 79 5f 62 75 66 66 65 72 | 25 21 32 30 0d 01 f4 04 |y_buffer|%!20....|
|00000530| 0d 01 fe 1b 74 65 6d 70 | 6f 72 61 72 79 5f 62 75 |....temp|orary_bu|
|00000540| 66 66 65 72 25 21 30 3d | 31 34 39 0d 02 08 1a 74 |ffer%!0=|149....t|
|00000550| 65 6d 70 6f 72 61 72 79 | 5f 62 75 66 66 65 72 25 |emporary|_buffer%|
|00000560| 21 34 3d 2d 31 0d 02 12 | 43 c8 99 20 22 4f 53 5f |!4=-1...|C.. "OS_|
|00000570| 52 65 61 64 56 64 75 56 | 61 72 69 61 62 6c 65 73 |ReadVduV|ariables|
|00000580| 22 2c 74 65 6d 70 6f 72 | 61 72 79 5f 62 75 66 66 |",tempor|ary_buff|
|00000590| 65 72 25 2c 74 65 6d 70 | 6f 72 61 72 79 5f 62 75 |er%,temp|orary_bu|
|000005a0| 66 66 65 72 25 2b 34 30 | 0d 02 1c 26 73 63 72 65 |ffer%+40|...&scre|
|000005b0| 65 6e 5f 73 74 61 72 74 | 25 3d 74 65 6d 70 6f 72 |en_start|%=tempor|
|000005c0| 61 72 79 5f 62 75 66 66 | 65 72 25 21 34 30 0d 02 |ary_buff|er%!40..|
|000005d0| 26 04 0d 02 30 21 e7 20 | 6c 65 6e 67 74 68 5f 78 |&...0!. |length_x|
|000005e0| 25 3e 30 20 80 20 6c 65 | 6e 67 74 68 5f 79 25 3e |%>0 . le|ngth_y%>|
|000005f0| 30 20 8c 0d 02 3a 55 c8 | 99 20 22 4f 53 5f 47 42 |0 ...:U.|. "OS_GB|
|00000600| 50 42 22 2c 33 2c 66 69 | 6c 65 5f 68 61 6e 64 6c |PB",3,fi|le_handl|
|00000610| 65 25 2c 73 63 72 65 65 | 6e 5f 73 74 61 72 74 25 |e%,scree|n_start%|
|00000620| 2c 6c 65 6e 67 74 68 5f | 78 25 2a 28 6c 65 6e 67 |,length_|x%*(leng|
|00000630| 74 68 5f 79 25 2b 31 29 | 2c 69 6d 61 67 65 5f 73 |th_y%+1)|,image_s|
|00000640| 74 61 72 74 25 2b 31 32 | 0d 02 44 05 cd 0d 02 4e |tart%+12|..D....N|
|00000650| 04 0d 02 58 13 d9 23 20 | 66 69 6c 65 5f 68 61 6e |...X..# |file_han|
|00000660| 64 6c 65 25 0d 02 62 04 | 0d 02 6c 05 e1 0d ff    |dle%..b.|..l.... |
+--------+-------------------------+-------------------------+--------+--------+